From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 5 Dec 2002 15:30:52 +0000 (+0000)
Subject: (solar-atn2): Give correct quadrant for arctan.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~29380
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=64f453f49f6768bb220b66d63d701cd2a14f0597;p=emacs.git

(solar-atn2): Give correct quadrant for arctan.
---

diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el
index 889129858d9..10c385ac4a2 100644
--- a/lisp/calendar/solar.el
+++ b/lisp/calendar/solar.el
@@ -262,7 +262,7 @@ Returns nil if nothing was entered."
    "Arctan of point X, Y."
    (if (= x 0)
        (if (> y 0) 90 270)
-     (solar-arctan (/ y x) x)))
+     (solar-arctan (/ y x) (solar-xy-to-quadrant x y))))
 
 (defun solar-arccos (x)
      "Arcos of X."